home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 18 / Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_A.d64 / circ designer v2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  39 lines
  1. 0 sys65409:sys65412:sys65418:poke53280,9:poke53281,9
  2. 1 print"[147]":xm=20:ym=12:hr=10:vr=hr:sp=6.5:gosub20
  3. 2 poke211,16:poke214,10:sys58640
  4. 3 print"tiger-crew"
  5. 4 poke211,15:poke214,13:sys58640:print"basic power!
  6. 9 [129]i[178]5000[164]1[169][171]50:[153]""i[173]1000:[130]:[137]100
  7. 10 [153]"load"
  8. 11 xm[178]20:ym[178]12:hr[178]10:vr[178]10:sp[178]4
  9. 20 [153]"load":pi[178]3.14
  10. 22 w1[178].:w2[178]45:w3[178]90:w4[178]135:w5[178]180:w6[178]225:w7[178]270:w8[178]315
  11. 30 wa[178]w1[172]pi[173]180:wb[178]w2[172]pi[173]180:wc[178]w3[172]pi[173]180:wd[178]w4[172]pi[173]180
  12. 31 we[178]w5[172]pi[173]180:wf[178]w6[172]pi[173]180:wg[178]w7[172]pi[173]180:wh[178]w8[172]pi[173]180
  13. 40 x1[178][181](xm[170]hr[172][190](wa)[170].5):y1[178][181](ym[170]vr[172][191](wa)[170].5):[151]1024[170]y1[172]40[170]x1,160
  14. 41 x2[178][181](xm[170]hr[172][190](wb)[170].5):y2[178][181](ym[170]vr[172][191](wb)[170].5):[151]1024[170]y2[172]40[170]x2,160
  15. 42 x3[178][181](xm[170]hr[172][190](wc)[170].5):y3[178][181](ym[170]vr[172][191](wc)[170].5):[151]1024[170]y3[172]40[170]x3,160
  16. 44 x4[178][181](xm[170]hr[172][190](wd)[170].5):y4[178][181](ym[170]vr[172][191](wd)[170].5):[151]1024[170]y4[172]40[170]x4,160
  17. 45 x5[178][181](xm[170]hr[172][190](we)[170].5):y5[178][181](ym[170]vr[172][191](we)[170].5):[151]1024[170]y5[172]40[170]x5,160
  18. 46 x6[178][181](xm[170]hr[172][190](wf)[170].5):y6[178][181](ym[170]vr[172][191](wf)[170].5):[151]1024[170]y6[172]40[170]x6,160
  19. 47 x7[178][181](xm[170]hr[172][190](wg)[170].5):y7[178][181](ym[170]vr[172][191](wg)[170].5):[151]1024[170]y7[172]40[170]x7,160
  20. 48 x8[178][181](xm[170]hr[172][190](wh)[170].5):y8[178][181](ym[170]vr[172][191](wh)[170].5):[151]1024[170]y8[172]40[170]x8,160
  21. 80 w1[178]w1[170]sp:w2[178]w2[170]sp:w3[178]w3[170]sp:w4[178]w4[170]sp:w5[178]w5[170]sp:w6[178]w6[170]sp:w7[178]w7[170]sp:w8[178]w8[170]sp
  22. 81 [139]w1[179]45[167]30
  23. 90 [142]
  24. 100 [151]53280,9:[151]53281,9
  25. 102 [153]"loadkreise zeichnen in basic <<<<<<<<<<<<<<
  26. 103 print"circle painter v1.0 <<<<<<<<<<<<<<<<<<<
  27. 104 [153]"written in feb. 1995 by madrom/tc/cream
  28. 105 print"---------------------------------------
  29. 106 [153]"schnell, schneller, am schnellsten ...
  30. 110 input"mittelpunkt (x-koord.):";xm
  31. 120 input"mittelpunkt (y-koord.):";ym
  32. 130 input"horizontaler radius:";hr
  33. 140 input"vertikaler radius:";vr
  34. 150 print"speed (1=sehr langsam aber genau)
  35. 160 [153]"      (8=sehr schnell aber ungenau)
  36. 170 input"speed (1-8):";sp
  37. 190 gosub20
  38. 200 print"";:sys42115
  39.